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IKHIIP DEC/Xll EXERCISER MUDULE 



000000' 
000000' 



8§888§: 



000026' 
QQQqJo! 



lOMOD 
MODULE 
.TITLE 
DDXCOM 



mi 



000000 

000000 

001142' 

000000 

000000 

000000 



<KWBJ >,172b40fcl04,6^«^50.,12 
140000,KHBJ ,172540,i04|-6e#i-50.,l2 
KWBJ DEC/Xll SYSTEM EXERCISER MODULE 



mhv 




IDDR: 


ECTOR: 


Rl: 
iR2: 


.BYTE PRTY6+0 


.BYTE PRTY+0 


VIDI: 


+ 1 


Rl: 


OPEM 




OPEN 


SR3: 


OPEN 


SR4: 


OPEN 


''**4*** 


***!************ 


STAT: 


140000 


NIT: 


START 


POINT: 


MODSP 


»ascnt: 





CONT: 


50. 



(««*****« 



**«* *«*** 



ICOUNT: 

sofcnt: 
hrdcnt: 
sofpas: 
hropas: 

SYSCNT: 

rannum: 

CONFIG: 

RESl: 

RES2: 

SVRO: 

SVRl: 

SVR2: 

SVR3: 

SVR4: 

SVH5: 

SVR6: 

CSRA: 

sbadr: 

ACSR: 

wasadr: 

ASTAT: 
RRRTYP: 

asb: 

AMAS: 

rstrt: 

SDTO: 

wdfr: 

INTR: 













OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 



******************************************** 

JMODULE NAME. 

jUSKD TO KEEP TRACK OF WBUFF USAGF. 
;1ST DEVICE ADDR. 
:1ST DEVICE VECTOR. 
hST BR LEVEL. 
;2ND BR LEVEL. 
;DEVICE INDICATOR 1. 
jSaiTCH REGISTER 1 
;S«ITCH REGISTER 2 
;SWITCH REGISTER 3 
;SWITCH REGISTER 4 
f**** *************** ********** 

ISTATUS WORD. 
(MODULE START ADDR. 
(MODULE STACK POINTER. 
iPASS COUNTER. 

tt OF ITERATIONS PER PASS=50. 

LOC TO COUNT ITERATIONS 

LQC TO SAVE TOTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD FRROPS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

H OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM If WHEN RAND MfiCRC IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOP MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE RO. 

LOC TO SAVE Rl. 

LOC TO SAVE P2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 

STATUS REG CONTENTS. 

TYPE OF ERROR 

EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF FASS 

WORDS TO MEMORY PEP ITERATION 

WORDS FROM MEMORY PER ITERATION 

S OF INTERRUPTS PEP ITERATION 



KWBJ DEC/Xll SYSTEM EXERCISER MODULE 
XKWBJO.Pll 12-0CT-78 12:03 

000122- 000012 
000040 



MACYll 


30A(1052) 


12-OCT-78 


idnum: 


12 






.REPT 


srsiz 




.NLIST 






.WORD 







.LIST 






.sndr 




MODSP: 






.************************** 
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;N0DULE IDENTIFICATION NUMREP=12 
;MCDULE STACK STARTS HERE. 



******** 



**************** 
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016777 
10- — 



000012 
000012 

-00001 
000115 

000674 
000670 
000000' 
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;THIS MODULE EXERCISES THE KHllP PROGRAMMABLE LINE CLOCK 
JAT lOOKHZ/lOKHZ, AND LINE FREQUENCY RATES. IT DOES 
;NOT CHECK THE EXTERNAL RATE FEATURE. 

INITIALIZATION ROUTINE 



.GLOBL KHllP, HMS/CKHUNG, CLOCK /PCLEAR 



177604 START: 

OOOOOOG 
177522 

is: 
001062 2$: 

001044 

001030 

001014 
001004 3$: 



000744 
177362 



0007 

m 

177432 
000706 
000702 



726 
'64 
04 4$: 



PC,PCLEAR 
#BIT1, CLOCK 
Po,MODNAM*4 
GOGO 

#300., INTER 
flrRl 

ftioO. /INTER 
12/Rl 

2700.#INTER 
INTER/MSGTIM 
MTIME 
ADDR,R1 

iRll* 

R1,C0UNTR 

ADDR/CLKCSR 

VECTOR/RO 

#KLKINT,(RO)+ 

!7,ftl 
50. /BASE 

#fo.#BASE 

|lO.,ICONT 

BASE,TIMCTR 

ICONT,IHTR 

#1^C0UNT 

#115,CDHAND 



000670 CLKGO: 
000656 



MO? 
TST 
BNE 
JSR 

BITB 

BEQ 

CMPB 

BEQ 

CLR 

MOV 

MOV 

ASR 

MOV 

CMP 

BEQ 

ADD 

CMP 

BEQ 

ADD 

MOV 

CLR 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIT 

BNE 

ADD 

ADD 

MOV 

MOV 

MOV 

MOV 



MOV COUMT,@COUNTR 
MOV COMAND/pCLKCSR 
EXITS, BEGIN 



;MUST do in CASE OF RESTART 

;PWR FAIL RESTART? 

;BR PAST CLEARS IF YES 

;CLEAR PASS TIME TABLE 

;FOR DATA PASSING TO MONITOR 

; IS KWll-P THE SYSTEM CLOCK ? 

; NO, CONTINUE 

> YES, IS THIS MODULE THE SYSTEM CLOCK ? 

; YES, CONTINUE 

; NO, MAKE SURE CLOCK IS OFF DURING EOP 

;SHOW ME ARE NOT BETWEEN PASSES 
;IIHAT IS MSG INTERVAL? 
;GET RID OF 50/60 HZ BIT 
;IS IT 5 MINUTES? 

>BR IF YES 

;N0, SO ADD 10 MORE MINUTES 

;IS IT 15 MINUTES? 

?BR IF YES 

JNO, MUST BE 60 MINUTES 

;S0 ADD 45 MORE MINUTES 

;MTIME IS COUNT FOR WHEN TO TYPE MSG 

;GET CLOCK ADDRESS 

;MOV IT TO THE COUNTER REGISTER 

;SAVE THIS ADDRESS 

;SAVE CLOCK CSR ADDRESS 

;GET VECTOR LOCATION 

;PUT INT. ROUTINE'S ADDR THERE 

;PUT BR LEVEL THERE TOO 

; COPY SRI INTO REG. 1 

; GET RID OF BITS 0-2 

;ASSUME ITS A 50HZ MACHINE 

;IS IT REALLY? 

;BR AROUND IF YES 

;OTHERWISE ADD 10 TO = 60HZ 

;F0R 60 CPS, ICDNT=60 

;NEED THIS COUNT FOR MSG COUNTER TOO 

?intr always=icont 

; load count to 1 

; load command for line freq. 

;set up clock count register 
;and start it off 

;exit to monitor, module wait for 
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000640 

000001 000712 




;INTERRUPT SERVICE ROUTINE 
KLKI 



1$: 
2S: 



3S: 
4$: 

5$: 
6$: 

el: 
9$: 



INT: DEC 
BNE 
CLR 
ADD 
ADC 
INC 
TST 
BNE 
MOV 
MOV 
SUB 
CMP 
BHI 
ADD 
BR 



TIMCTR 
0CLKCSR 

MTIME 
RUNING 

BASE,TIMCTR 
TIME,TMPTIM 
HLDTIM,TMPTIM 
#900.,fMPTIM 

«900.,HLDTIM 

ns 



f: 



; has 1 second elapsed ? 

;br if not 

; disable further interrupts 

5c0unt a second for total time 

; put any overflow time here 

;count a second for msg time 

;are we between passes? 

jno continue 

? yes, reset the interrupt counter 

;GET the PRESENT TIME 

;GET ELAPSED TIME SINCE EOP 

;HAVE 15 MINUTES PASSED? 

;N0, CONTINUE 

?YES, CHECK AGAIN IN 15 MINUTES 

;GQ CHECK FOR ANY "HUNG" MODULES 



kRQSi 



00404 
00372 



ilT 
BEQ 
CMP 
BEQ 
BIT 
BNE 
BR 

CMP 
BHI 
BLO 
MOV 
MOV 
BR 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 



MOV 
BR 

BIT 
BNE 
MOV 
MOV 
RTI 



BEGIN, 2$ 

""iio^Ri" 



QUEUE UP TO CONTINUE AT 2$ AND RTI 



20, Rl 



? 1666., COUNT 
101,CDMAND 

#166., COUNT 
|103,COMAND 

#1, COUNT 
ill5,C0MAND 
BASE, TIMCTR 
8$ 

#60., TIMCTR 
13$ 

|BIT3,@CLKCSR 

C0DNT,eC0UNTR 
COMAND,gCLKCSR 



; LOCK AT ANY PARTICULAR FREQ. ? 

} NO, CONTINUE 

; LOCK AT 100 KHZ ? 

; GO DO IT 

} LOCK AT 10 KHZ ? 

; YES. GO DO IT 

; LOCK AT LINE FREQ., DO IT 

; FIND OUT WHAT PRESENT COUNT IS AT 

; COUNT NOW = 1 

J COUNT NOW = 1666. 

; COUNT WAS 166., NOW IS 1666. 

; SET FREQ. TO 100 KHZ 

; CONTINUE 

J COUNT IS NOW 166. 

; SET FREQ. TO 10 KHZ 

} CONTINUE 

J COUNT IS NOW 1 

} SET FREQ. TO LINE FREQ. 

; SETUP « OF INTERUPTS FOR 50/60 HZ 

? CONTINUE 

; 60. INTERUPTS = 1 SECOND 

; GO START CLOCK 

; IN THE REPEAT INTERRUPT MODE ? 

; YES, GET OUT 

;IF NOT, LOAD THE COUNTER 

; TURN ON THE CLOCK 

} RETURN 



) 
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000000' 

000320 

176760 
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104413 000000' 

000167 177340 

7 176666 

. mm 

2442 



002110' 
000002 

145 000234 
001222' 016745 000226 

imW' mm """"" 



000274 

mm 



lis: 
12S: 



13$: 



14$: 



000174 REST: 



fiRQ$7BiGiN7l2i~ 

MOV &Q&bfiCLKCSR 

MOV R5£-iSP) 

MOV fiRSSTKirRS 

JSR 

MOV 

BXIT$/BEi 



} QUEUE UP TO CONTINUE AT 12S AND RTI 



MOV 
DEC 
CMP 
BNE 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#l#flCOyNTR_ 

#R§iTK,R5 
PC^CKHUNG 
(SP)+^R5 
CIN 

BASE/RO 

ICgUNT^RO 

luWING 
TiMEiHLDTIM 

IaIe^timctr 

|115£C0MAND 

COUNTfgCOONTR 

GOGO,§CLKCSR 



EHDIT$,BEGIN 



;SET COUNT 

JTURN THE CLOCK ON IF SYSTEM CLOCK 

JSAVE R5 

;SET UP R5 STACK 

; BACK TO MONITOR. CHECK FOR HUNG NODULES 

;RESTORE R5 

;EXIT TO MONITOR. MODULE WAIT FDR INTERRUPT. 

;SAVE THE BASE TIME 
'SETUP RO 

;is it time for end pass 

;no, branch 

?quit counting pass seconds 

;save the time of the eop 

; set the count 

; load number of interrupts counter 

; load the command 

;set count 

?kbep clock going if system clock 

SSIGNAL END OF ITERATION. 
)MONITOR SHALL TEST END OF PASS 
;IF NOT, KEEP ON CLOCKIN' 



JMP 
CMP 
BLO 
CLR 
CMP 
BLT 



PASCNT 
REST 
START 
MTIME, INTER 

MTIME 
SRt,#2 



; CONTINUE 

; BEGIN AT START 

;IS IT TIME FOR A MSG? 

;N0£ SO BRANCH 

?YES, RESET MSG TIME COUNT 

;IS ANY MSG WANTED? 

JBR IF NOT 



> SET UP R5 STACK AND CONVERT TIME^ANp TIMEXT TO HOURS, MINUTES AND SECONDS. 
;_^ CALLING sequence: CALL HMS IN <TIME/TIMEXT> OUT <R0> 



MOV 
MOV 
MOV 
SUB 

MOV 
MOV 



JSR 

MOV 



#R5STK,R5 
ll*#2,R5 



R5,-(SP) 
TIMEXT,- 



(R5) 



TIME,-(R5) 

PC,HMS 
(SP)4,R5 



;SAVE RO 

;SAVE R5 

?SET UP R5 STACK 

}SAVE SPACE ON STACK FOR OUTPUT 

;ARGUMENT FOR HMS CALL 

;SAVE R5 STACK POINTER ON R6 STACK 

;PLACE EXTENDED ELAPSED TIME 

JARGUMENT ON R5 STACK 

;PLACE ELAPSED TIME ARGUMENT 

;0N R5 STACK 

>S5l!l!„ll"Ufil'„S!|NUTES, SECOND CONVERSION 

yRESTORB R5 STACK POINTER 
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II' mnr 



1$: 



1$: 



MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOV 

MOV 

NSGHS,BE 

JMP 

MOV 
MOV 
CLR 
CLR 
CLR 
CMP 
BNE 
RTS 



(R5)+,R0 



■f,RUNTl+l 



,R03 + /RUNT1 , 
R0S+,RONTl+3 
RO: ♦,RUNT2 
,R0U,RUNT2+1 
R05-i-,RUNT3 
RO ♦,RUNT3+1 
SP ♦^RS 
SP)+,RO 
"" EXPRI 



GIN,EXPRI 
#1*RUNING 
CLKGO 



fMODTIM^RO 

|modend,ri 

flME 
TIMEXT 



R0#R1 



SFQ OCIO 



;get output argument of hhs 

;routine into ro 

;load 

;converted 

;time 

;INT0 

;message 

;restore R5 
;restore RO 

; GO restart the clock 

;get start of table 

;get end 

; zero total runtime 

; ZERO EXTENDED TIME BITS 

;clear entry 
;done? 
;br if not 

;EXIT 
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'oiiur- mm' 




001402- oooooi 
"-*404' OOOllS 



406' 020045 
414' 044524 
422' 020123 
427' 040 



436' 02084 
444' 03511! 



8?- 

--1460* 600170 
002040' 



002110' 000000 
000001 



imh 



GOGQ: 
MSGTIMS 
INTERS 
RUNING: 



MTIME! 

timctr: 

TMPTIMS OPEN 



OPEN 
OPEN 
OPEN 
OPEN 



HLDTIM: OPEN 



CLKCSR! 

CLKCTR! 

COUNTRI OPEN 



OPEN 
OPEN 
OPEN 



COUNTS 
CO HANDS 



1 
115 




RUNTIS -ASCII '% RUN TIME IS 



(h:msS)%' 



; If THIS IS THE _ 
;TELLS WHEN TO TYP 



;0 IF BETWEEN PASSES 



„_ SYSTEM CLOCK, ELSE 

;TBLLS WHEN TO TYPE A MSG 
?HQW OFTEN BETWEEN MSG.S 



KOP 



;COUNTS SECONDS BETWEEN MSG.S 

jCgONTS I OF INTERRUPTS UP TO 1 SECOND 

;TEMP LOCATION HOLDS TIME 

;TEMP LOCATION HOLDS TIME SINCF LAST 

; HOLDS LINE FHEQ./ 50. /60. 

; HOLDS ADDRESS OF CLOCK CSR 

; HOLDS ADDRESS OF CLOCK COUNT SET 

; HOLDS ADDRESS OF CLOCK COUNTER 

; *iOMSlS„OF CLOCK TICKS BEFORE INTERRUPT 

; COMMAND TO THE CLOCK 



HOURS 

MINUTES 

SECONDS 



; 

!even 

KMllPS 
TIMES 
TIMEXT: 
MODTIMS 

modend: 



2S„''9LJSDIPy *NV LOCATION BELOW THIS POINT. 
THE MONITOR MUST KNOW WHERE EACH WORD IS. 



BEGIN 
OPEN 
OPEN 
.BLKW 



J HOLDS STARTING ADDRESS OF MODULE 
>ELAP3ED TIME IN SECONDS 
^ „, ; HOLDS EXTENDED BITS FOR THE TIME WORD 
; TABLE FOB MONITOR, HOLDS TIME FOR EACH MODULE 



;+ 

; SET ASIDE R5 STACK STORAGE 

;- 

R5STK; .WORD 
.END 



;R5 STACK 
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ASB 
ASTAT 


Mh 6R 

0001 4R 
OOOllOR 
001372R 
OOOOOOR 


AWAS 


gsa?» 


BITO = 


UXi 


BIT = 


BITIO = 


002000 
004000 




BIT12 = 


010000 


B T13 = 


020000 


"!« f 


mm 


§ , * ^ 


B T4 = 
B T5 = 


000020 


BIT6 = 




B T7 = 


00020< 


B T = 
T9 = 


0Q040 
00100 


REAK$= 


10440' 
000012R 
I00013R 


R 


R2 


TODS = 


04421 


iS.Jl? G 


CLKCSR 


000502R 


CLKCTR 


CLKGO 


CLOCK = 


****** G 


COMAND 


III 


CONFIG 
COUNT 


CQUNTR 


00010; »R 


CSRA 


DATCKS= 




DATERS= 




DVIDl 


0000 4R 


ENDIT$= 


{in I 


ENDS = 
ERRTYP 


0001 6R 



EXITS = 104400 
EXPRI 001346R 
GETPAS= 104415 
GOGD 001352R 
GWBUF$= 104414 
HLDTIM 001370R 
HMS = ****** G 
HRDCNT 000044R 
HRDERS= 104405 
HRDPAS 000050R 
ICONT 000036R 



J)) 


I 262 


265 








7 9 
























29 


iir 


m 


itl 


m 


ll§ 


244 










' 29 












: 29 












229 












m 












m 


332 










Et 












; 29 












29 
229 












I9 












268 










80 












229 












229 
237 


346 










265 
432 
28 


282* 


289* 


332 


335* 


343* 


365 


406 








mi 


244 
282 










318* 


322* 


325* 


335 


f 281 


314 


317* 


321* 


324* 


Volt 


281* 


334* 


342* 


359* 


433# 


:29 




































' '29' 


363 






















214 












2291 


283 


348 








III 


419# 










343 


360 


422# 






300* 


355* 


429# 






237fl 


391 










\n 






















196 












19ll 


239* 


275* 


277 







m 



ill' 



431# 



J»l 



434# 
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KWllP 

M&P22S= 

MODEHD 



42 4# 



OTOAS = 
PASCNT 
PCLEAR 
PIRQS = 
POPSP = 



00040 



229# 



370 



372* 



426# 

105 202 

m m 



204 



205 
423 



m 



207 
425 



208 
426 



209 
427 



229# 



m 



m 



1777 

024646 
104417 
000054R 



600112R 
001360R 
0014Q6R 



§8 

000I02R 
000042R 
104406 



354* 
397* 



405* 
441# 



425# 



SVRl 

SYR2 

m SVR3 

SYR4 

Hi SVR5 

mi SVR6 

SYSCHT 

TIMCTR 

TIME 

TIMEXr 

TMPTIM 

TRPDFD= 

VECTOR 

HASADR 

UDFR 

HDTO 

XFLAG 
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SOFPAS 000046R 195# 

SPOINT nnnnaiD f^SS 

SPSIZ = 

SRI 

SR2 

SR3 

SR4 

START 

STAT 

SVRO 



24R 



uuyu roK 

001364R 
001454R 
Q01456R 



2i2i 
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222 
251 



269 
239# 369 



287* 
296 
387 
297* 

266 



272 



373 



411* 
298 



ur im 



452K 
4281 



357* 
451# 



427# 



000000 
002112 



000 
001 
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